home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / PublicDomain / System / recoverdeldir / arexx / SystemReq < prev   
Text File  |  1999-08-23  |  404b  |  16 lines
  1. /* ARexxScript (Shows Infos using RequestChoice) */
  2.  
  3. PARSE ARG Text
  4. IF Exists('c:RequestChoice') THEN
  5.   address command 'c:RequestChoice "Info" "*n'Text'*n" "OK"'
  6. ELSE DO
  7.   IF OPEN('Shell','CON:160/50/400/100/Info/CLOSE/WAIT') THEN DO
  8.     DO WHILE POS('*n',Text) > 0
  9.       text = Overlay(D2C(10),text,Pos('*n',text),2)
  10.     END
  11.     WriteLn('Shell',D2C(10)||' 'text)
  12.     CALL CLOSE('Shell')
  13.   END
  14. END
  15. EXIT
  16.